home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / source / tsm23s.lha / Install < prev    next >
Encoding:
Text File  |  1993-10-08  |  5.2 KB  |  234 lines
  1. ; TSMorph - Amiga Morphing program
  2. ; Copyright (C) © 1993  Topicsave Limited
  3.  
  4. ; This program is free software; you can redistribute it and/or modify
  5. ; it under the terms of the GNU General Public License as published by
  6. ; the Free Software Foundation; either version 2 of the License, or
  7. ; any later version.
  8.  
  9. ; This program is distributed in the hope that it will be useful,
  10. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. ; GNU General Public License for more details.
  13.  
  14. ; You should have received a copy of the GNU General Public License
  15. ; along with this program; if not, write to the Free Software
  16. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17.  
  18. ; mpaddock@cix.compulink.co.uk
  19.  
  20. ; This is the script to install TSMorph
  21. ; $VER: TSMorph-Install 2.3 (8.10.93)
  22.  
  23. (complete 0)
  24.  
  25. (set InstallDir
  26.    (askdir
  27.       (prompt "Where do you want to install TSMorph 2.3?")
  28.       (help @askdir-help)
  29.       (default "Work:")
  30.    )
  31. )
  32.  
  33. (if (> (/ (getversion) 65536) 38)
  34.    (set Kick30 1)
  35.    (set Kick30 0)
  36. )
  37.  
  38. (Set DestDir 
  39.    (tackon InstallDir "TSMorph")
  40. )
  41.  
  42. (Set RexxDir 
  43.    (tackon DestDir "Rexx")
  44. )
  45.  
  46. (Set CursorDir 
  47.    (tackon DestDir "Cursor")
  48. )
  49.  
  50. (Set BrushDir 
  51.    (tackon DestDir "Brush")
  52. )
  53.  
  54. (set @default-dest 
  55.    DestDir
  56. )
  57.  
  58. (makedir
  59.    DestDir 
  60.    (infos)
  61. )
  62.  
  63. (Set Use040
  64.    (= 
  65.       (database
  66.          "cpu"
  67.       )
  68.       68040
  69.    )
  70. )
  71.  
  72. (set Use881
  73.    (askbool
  74.       (prompt "Install 68020/030/68881/2/68040 version")
  75.       (help "There are two versions of the TSMorph-render program. "
  76.             "One requires both a 68020 or 68030 CPU with a 68881 or 68882 FPU or a 68040. "
  77.             "The other should run on any processor.")
  78.       (default Use040)
  79.    )
  80. )
  81.  
  82. (complete 10)
  83.  
  84. (if Use881
  85.    (
  86.       (copyfiles
  87.          (prompt "Copying TSMorph program and data files")
  88.          (help @copyfiles-help)
  89.          (source "")
  90.          (dest DestDir)
  91.          (choices "TSMorph" "TSMorph-render.881" "TSMorph.guide" "TSMorph-prefs")
  92.          (infos)
  93.          (confirm)
  94.       )
  95.       (delete (tackon DestDir "TSMorph-render"))
  96.       (rename (tackon DestDir "TSMorph-render.881")
  97.               (tackon DestDir "TSMorph-render")
  98.       )
  99.       (delete (tackon DestDir "TSMorph-render.info"))
  100.       (rename (tackon DestDir "TSMorph-render.881.info")
  101.               (tackon DestDir "TSMorph-render.info")
  102.       )
  103.    )
  104.    (copyfiles
  105.       (prompt "Copying TSMorph program and data files")
  106.       (help @copyfiles-help)
  107.       (source "")
  108.       (dest DestDir)
  109.       (choices "TSMorph" "TSMorph-render" "TSMorph.guide" "TSMorph-prefs")
  110.       (infos)
  111.       (confirm)
  112.    )
  113. )
  114.  
  115. (if Kick30
  116.    (tooltype
  117.       (dest (tackon destdir "TSMorph.guide"))
  118.       (setdefaulttool "MultiView")
  119.    )
  120. )
  121.  
  122. (complete 30)
  123.  
  124. (makedir
  125.    RexxDir
  126.    (infos)
  127. )
  128.  
  129. (copyfiles
  130.    (prompt "Copying example Rexx scripts")
  131.    (help @copyfiles-help)
  132.    (source "Rexx")
  133.    (dest RexxDir)
  134.    (all)
  135.    (infos)
  136.    (confirm)
  137. )
  138.  
  139. (complete 40)
  140.  
  141. (makedir "ENVARC:TSMorph")
  142.  
  143. (copyfiles
  144.    (prompt "Copying Icons to ENVARC:")
  145.    (help @copyfiles-help)
  146.    (source "")
  147.    (dest "ENVARC:TSmorph")
  148.    (choices "ENV/TSMorph/def_points.info"
  149.             "ENV/TSMorph/def_bw16.info"
  150.             "ENV/TSMorph/def_bw256.info"
  151.             "ENV/TSMorph/def_dctv3.info"
  152.             "ENV/TSMorph/def_dctv4.info"
  153.             "ENV/TSMorph/def_ham6.info"
  154.             "ENV/TSMorph/def_ham8.info"
  155.             "ENV/TSMorph/def_iff.info"
  156.             "ENV/TSMorph/def_ilbm.info"
  157.             "ENV/TSMorph/def_jpg.info"
  158.             "ENV/TSMorph/def_ppm.info"
  159.             "ENV/TSMorph/def_prefs.info")
  160.    (confirm)
  161. )
  162.  
  163. (complete 50)
  164.  
  165. (makedir "ENV:TSMorph")
  166.  
  167. (copyfiles
  168.    (prompt "Copying Icons to ENV:")
  169.    (help @copyfiles-help)
  170.    (source "")
  171.    (dest "ENV:TSmorph")
  172.    (choices "ENV/TSMorph/def_points.info"
  173.             "ENV/TSMorph/def_bw16.info"
  174.             "ENV/TSMorph/def_bw256.info"
  175.             "ENV/TSMorph/def_dctv3.info"
  176.             "ENV/TSMorph/def_dctv4.info"
  177.             "ENV/TSMorph/def_ham6.info"
  178.             "ENV/TSMorph/def_ham8.info"
  179.             "ENV/TSMorph/def_iff.info"
  180.             "ENV/TSMorph/def_ilbm.info"
  181.             "ENV/TSMorph/def_jpg.info"
  182.             "ENV/TSMorph/def_ppm.info"
  183.             "ENV/TSMorph/def_prefs.info")
  184.    (confirm)
  185. )
  186.  
  187. (complete 60)
  188.  
  189. (if
  190.    (askbool
  191.       (prompt "Copy GUI files?")
  192.       (help "Select 'Yes' to copy the GUI files. "
  193.             "These files may then be changed to allow you to configure the user interface. "
  194.             "Select 'No' if you do not wish to change the interface.")
  195.    )
  196.    (
  197.       (makedir CursorDir)
  198.       (copyfiles
  199.          (prompt "Copying Pointer files")
  200.          (help @copyfiles-help)
  201.          (source "Cursor")
  202.          (dest CursorDir)
  203.          (all)
  204.          (infos)
  205.          (confirm)
  206.       )
  207.       (complete 70)
  208.       (makedir BrushDir)
  209.       (copyfiles
  210.          (prompt "Copying Gadget files")
  211.          (help @copyfiles-help)
  212.          (source "Brush")
  213.          (dest BrushDir)
  214.          (all)
  215.          (infos)
  216.          (confirm)
  217.       )
  218.    )
  219. )
  220.  
  221. (complete 80)
  222.  
  223. (startup "TSMorph"
  224.    (prompt "Adding assign TSMorph: to " DestDir " in s:user-startup")
  225.    (help @startup-help)
  226.    (command "Assign TSMorph: " DestDir)
  227. )
  228.  
  229. (complete 90)
  230.  
  231. (makeassign "TSMorph" DestDir)
  232.  
  233. (complete 100)
  234.